home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 52
/
Aminet 52 (2002)(GTI - Schatztruhe)[!][Dec 2002].iso
/
Aminet
/
game
/
patch
/
WHDIGamesU-Z.lzh
/
Xenomorph.lha
/
xenomorph-install
/
Install
next >
Wrap
Text File
|
1998-03-21
|
1KB
|
65 lines
;----------------------------
;try to figure out a place where the user usually installs his games
(if (exists "Games:" (noreq) )
(set @default-dest "Games:")
(if (exists "SYS:Games" (noreq) )
(set @default-dest "SYS:Games")
(if (exists "Work:Games" (noreq) )
(set @default-dest "Work:Games")
(set @default-dest "RAM:")
)
)
)
(set @default-dest
(askdir
(prompt ("Where should %s installed ?\nA drawer \"%s\" will automatically created." @app-name @app-name))
(help @askdir-help)
(default @default-dest)
(disk)
)
)
(set #dest (tackon @default-dest @app-name))
(set #CI_drive "DF0:")
(makedir #dest
(help @makedir-help)
(infos)
)
;----------------------------
(message ("\nPlease insert Xenomorph disk 1 into DF0:"))
(if
(= 0 (run ("disk2file 0 T:X1")))
("")
(abort "\"disk2file\" must be in your PATH !")
)
(message ("\nPlease insert Xenomorph disk 2 into DF0:"))
(if
(= 0 (run ("disk2file 0 T:X2")))
("")
(abort "\"disk2file\" must be in your PATH !")
)
(run ("xeno-x"))
(run ("copy #? \"%s\"" #dest))
(delete ("%s/disk2file" #dest))
(delete ("%s/xeno-x" #dest))
(delete ("%s/install" #dest)
(infos)
)